home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS210.dsk / F1.SYS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  22 lines
  1. 1  POKE  -16304,0: POKE  -16297,0: POKE  -16302,0
  2. 5  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>       <CTRL-M>*** <CTRL-J>
  3. 10  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>        <CTRL-M>*** FAIL1<CTRL-J>
  4. 20 Q$ =  CHR$(34):D$ =  CHR$(4):CL% = 948:KY% = 962:HI% = 772:TE% = 781:UN% = 25345:X% = 768:Y% = 769: DEF  FN C(QZ) =  INT(QZ/2) - INT( LEN(A$)/2)
  5. 30  CALL TE%:A$ = "GUEST REGISTER": PRINT D$"OPEN"A$: PRINT D$"READ"A$: INPUT BVG%: INPUT FI$: INPUT LA$: PRINT D$"CLOSE": CALL HI%
  6. 40  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>        <CTRL-M>*** START UP<CTRL-J>
  7. 50 A$ = "DNA6": GOSUB 1000
  8. 60  POKE Y%,0: POKE X%,0: PRINT "  The mRNA leaves the nucleus and goes  to the ribosome.": PRINT 
  9. 70 A$ = "Press a key.": POKE Y%,23 *7: POKE X%,23: PRINT A$: CALL KY%
  10. 80 A$ = "RIB0": GOSUB 1000
  11. 90  POKE Y%,20: PRINT " Groups of three bases are": PRINT "called codons. Each codon": PRINT "codes for a certain amino": PRINT "acid."
  12. 100 A$ = "Press any key.": POKE Y%,23 *7: POKE X%, FN C(24): PRINT A$: CALL KY%
  13. 110 A$ = "RIB2": GOSUB 1000
  14. 120  POKE Y%,150: PRINT " Transfer RNA goes out and picks up     stray amino acids and lines up with     the appropiate codon."
  15. 130  POKE Y%,25 *7:A$ = "Press any key.": POKE X%, FN C(40): PRINT A$: CALL KY%
  16. 140  CALL UN%: POKE Y%,150: PRINT " When the rest of amino acids bond      together, the protein is formed."
  17. 150  POKE Y%,24 *7:A$ = "Press any key.": POKE X%, FN C(40): PRINT A$: CALL KY%
  18. 470  CALL TE%: POKE 768,1: PRINT : PRINT D$"RUNTIMEQZ.SYS"
  19. 999  END 
  20. 1000  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>          <CTRL-M>*** LOAD IN PACKED PIC<CTRL-J>
  21. 1010  PRINT D$"BLOAD"A$".PAC,A$63B8": CALL UN%
  22. 1020  RETURN